Top 10k strings from Dynamic 48 (1985)(Janez Jaklic)(si).z80
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
3 ;" Pritisni katerokoli tipko ": 2 -vy,(a<vx/2 2 +n)=r$(n): 2 *"m";n;n$+"/d" 2 );":[";r(3 2 );":[";r(1 2 ));" od ";b$;" do ";c$ 2 (vx*vx+vy*vy)^"+c$ 2 "V - vrnitev" 1 y=y0+u0*h/2 1 y=y0+dy2/2 1 y=y0+dy1/2 1 y0=y0+vy*h 1 y0=y0+(dy1+2 1 x=x0+v0*h/2 1 x=x0+dx2/2 1 x=x0+dx1/2 1 x0=x0+vx*h 1 x0=x0+(dx1+2 1 x y x y x y x y 1 vy=u0+du2/2 1 vy=u0+du1/2 1 vy=u0+ay*h/2 1 vx=v0+dv3: 1 vx=v0+dv2/2 1 vx=v0+dv1/2 1 vx=v0+ax*h/2 1 v0=v0+(dv1+2 1 u0=u0+(du1+2 1 r(n)=r(s*6 1 r$(n)=r$(s*2 1 p$(n)=r$(s*2 1 na metoda, korak:" 1 na metoda (e/r)? ";b$: 1 l=(y0>u0)*y0+(y0 1 k$=" ": 1 ina na osi Y ? ";b$: 1 ina na osi X ? ";b$: 1 i sliko z microdriva" 1 i sliko s kasete " 1 i shranjeno sliko" 1 i shranjeno sliko 1 i izrazi:"'"C(k,x0,y0)", 1 i glavno sliko iz banke" 1 g$=g$+b$+"*vy* 1 g$=g$+b$+"*(y"+d$+")*((x"+c$+")*(x"+c$+")+(y"+d$+")*(y"+d$+"))^(-3/2)" 1 g$=g$+a$(j) 1 g$=g$+"-"+b$+"*vx" 1 g$=g$+"+0" 1 f$=f$+b$+"*vy" 1 f$=f$+b$+"*vx* 1 f$=f$+b$+"*(x"+c$+")*((x"+c$+")*(x"+c$+")+(y"+d$+")*(y"+d$+"))^(-3/2)" 1 f$=f$+a$(j) 1 f$=f$+"+0" 1 etni pogoji:" 1 b$=b$+"-2*m*"+s$+"*v"+c$ 1 b$=b$+"-"+s$+"*"+c$ 1 b$=b$+"+"+s$ 1 as, lego in hitrost:" 1 ano Eulerjevo metodo r - metodo Runge Kutta" 1 a=(vx-l)/2 1 T. ";s;" "; 1 T. ";s;" "; 1 NA SIMULACIJA " 1 IL SHRANJENO SLIKO 1 ETNIH POGOJEV 1 ETNI POGOJI 1 BBB>@<~B<><B 1 B<B>|B@<<> 1 <>B<~B<><B 1 ;"vx=";vi; 1 ;"os Y: ";r$(2 1 ;"os X: ";r$(1 1 ;"enaki? (D/druga tipka) 1 ;"PODAJANJE ZA 1 ;"Naj bosta skali na zaslonu 1 ;"MANIPULACIJA S SLIKAMI 1 ;"Janez JAKLI 1 ;"IZBIRA NUMERICNE METODE 1 ;"Fy=";g$; 1 ;"Fx=";f$; 1 ;"DEFINICIJA SILE IN MASE 1 ;"DEFINICIJA OKNA GLAVNE SLIKE " 1 ;" y=";yi; 1 ;" x=";xi; 1 ;" t=";ti; 1 ;" SIMULACIJA 1 ;" SILA IN MASA 1 ;" PRIKAZ GLAVNE SLIKE 1 ;" OKNO GLAVNE SLIKE 1 ;" MANIPULACIJA S SLIKAMI 1 ;" G(raf) N(um) P(rint) V(rnitev) " 1 ;" SHRANIL GLAVNO SLIKO V 1 ;" Pritisni katerokoli tipko " 1 ;" Pritisni katerokoli tipko " 1 -vy+b,a;"0" 1 +n)=p$(n): 1 *dy3+dy4)/6 1 *dx3+dx4)/6 1 *dv3+dv4)/6 1 *du3+du4)/6 1 )+(x+y)*vy* 1 )*(a-y0);r(3 1 )*(a-u0);r(4 1 (vx*vx+vy*vy)^1 1 (a$(j)=")" 1 ''"V pomnilniku so shranjene 4" 1 ''"D - definicija novega okna" 1 '"Vstavi nove vrednosti za za 1 '"Sedanji podatki za okno:" 1 '"Sedanja numeri 1 '"Sedanja definicija sile:" 1 '"Sedanja definicija mase:": 1 '"Poenostavljajo 1 '"M -podajanje mase" 1 '"Fx=Fx(t,m,x,y,vx,vy)"'"Fy=Fy(t,m,x,y,vx,vy)": 1 #44, 27/2/1985 1 "z microdriva 1 "x=";xi'"y=";yi 1 "t=";t'"m=";m'"x=";x'"y=";y'"vx=";vx'"vy=";vy'"ax=";ax'"ay=";ay 1 "slike, ki so ozna 1 "shraniti 1 "pod imenom ? ";n$: 1 "pod imenom ? ";n$ 1 "od 0 do 3:" 1 "natisniti 1 "na microdrive 1 "mod. Euler 1 "m=m(t,x,y,vx,vy)": 1 "interval ";(r$(2 1 "interval ";(r$(1 1 "V -vrnitev" 1 "T - natisni sliko (ZX printer)" 1 "Shrani glavno sliko v 1 "Sedanji za 1 "S - shrani glavno sliko v banko" 1 "S - opremljanje slike s skalo" 1 "Runge-Kutta h=";h 1 "P -podajanje sile s parametri" 1 "P - prika 1 "Naslov za hardcopy ?"'a$: 1 "N(os,k,b,F)" 1 "M - shrani sliko na microdrive" 1 "K(ix,iy)" 1 "K -podajanje sile v komponentah" 1 "K - shrani sliko na kaseto" 1 "Fx=";f$'"Fy=";g$ 1 "E - natisni sliko (matri 1 "DYNAMIC 48" 1 "B - brisanje trenutne slike" 1 " os Y: ";r$(2 1 " os X: ";r$(1 1 " modificirana Eulerjeva metoda": 1 " metoda Runge - Kutta" 1 " 1,2,3 - prej shranjene slike" 1 " - vx,vy (hitrost)" 1 " - ax,ay (pospe 1 lahko med:"'" e - izbolj 1 lahko med koli 1 SIMULACIJA 1 PRIKAZ SLIKE 1 PRIKAZ OKNA 1 PRIKAZ GLAVNE SLIKE 1 Februar 1985" 1 - glavna slika"